Imports System.ComponentModel

Public Class listaDataTypes
    Inherits System.ComponentModel.StringConverter

Dim _Tipos As String() = New String() {"Alabama", "Alaska"}


    Public Overloads Overrides Function _
    GetStandardValues(ByVal context As _
    System.ComponentModel.ITypeDescriptorContext) _
    As System.ComponentModel.TypeConverter.StandardValuesCollection

        Return New StandardValuesCollection(_Tipos)
    End Function


    Public Overloads Overrides Function _
        GetStandardValuesExclusive(ByVal context _
        As System.ComponentModel.ITypeDescriptorContext) _
        As Boolean

        Return True ' sale un dropdownlistbox
    End Function



End Class
